; Utility to grab ENV:, ENVARC: and Wordworth preferences and save them to disk
RESIDENT c:relabel
RESIDENT c:copy
RESIDENT c:delete
REQUESTCHOICE >ENV:answer "DPM Reader" "Digita Print Manager Reader v1*n*nPlease place a blank formatted disk*nin your internal drive and then click OK.*n*nWARNING: You should ensure that the*n'Wordworth' disk is not in the internal*ndrive before continuing." "OK|Cancel"
IF $answer EQ "1"
echo "Please wait..."
RELABEL df0: DPMdata
;Copying User Preferences...
COPY env: DPMdata:env all quiet
;Copying Saved Preferences...
COPY envarc: RAM:envarc all quiet
COPY RAM:envarc DPMdata:envarc all quiet
DELETE RAM:envarc all quiet
REQUESTCHOICE >ENV:answer "DPM Reader" "All preferences have been*nsaved to the disk." "OK"